home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / c128 / c142.d64 / menu 64 & 128-40 (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  2KB  |  45 lines
  1. 800 GOSUB860:GOSUB880:GOTO965
  2. 805 RV=18:CC=159:PRINT"";
  3. 810 PRINT"[145][221][158]"CHR$(RV)CHR$(CC)N$(I)"[146][151]"LEFT$(P$,38-LEN(N$(I))-LEN(E$(I)))"[159]";
  4. 815 PRINTE$(I)"[221][158]";:RV=0:CC=158:RETURN
  5. 820 R=4+D:GOSUB830:FORI=KTOK+E:PRINT"";:GOSUB810:NEXT
  6. 825 PRINT"[202]"L$"[203]";:R=4+D:GOSUB830:I=K:RETURN
  7. 830 PRINTLEFT$("",R+1)TAB(C);:C=0:RETURN
  8. 835 R=24:GOSUB830:PRINT"[152]  USE CURSORS TO SELECT, THEN <RETURN>[158]";:RETURN
  9. 840 E=18:D=0:IFJ<19THENE=J-1:D=INT(10-J/2)
  10. 845 R=D/2:GOSUB830:PRINT"[154]"TAB(18-T/2)"[213]"LEFT$(L$,T+2)"[201]
  11. 850 [153][163]18[171]T[173]2)"(null)FOR "TL$" CONT(null)":[153][163]18[171]T[173]2)"MID$"[200](L$,T[170]2)"(null)
  12. 855 R=3+D:GOSUB830:PRINT"[213]"L$"[201][158]";:GOSUB820:RETURN
  13. 860 DIMN$(99),T$(99),E$(99),S(99):READTL$:IFFRE(0)=FRE(1)THEN870
  14. 865 (null)0,1:(null)4,1:Y=235:X=236:NC=208:B=842:GOTO875
  15. 870 POKE53280,0:POKE53281,0:Y=214:X=211:NC=198:B=631
  16. 875 PRINT"[147]"CHR$(142):T=LEN(TL$):FORJ=1TO19:L$=L$+"[192][192]":P$=P$+"..":NEXT:RETURN
  17. 880 READN$
  18. 885 IFN$="*"THENJ=I:I=1:K=1:GOSUB840:GOSUB805:GOSUB835:R=5+D:GOSUB830:GOTO900
  19. 890 I=I+1:N$(I)=N$:READT$(I),E$(I),S(I):IFT$(I)=""THENT$(I)=N$(I)
  20. 895 GOTO880
  21. 900 WAITNC,255:GETA$:IFA$<>""THEN930
  22. 905 IFI<>JANDI<K+18THENGOSUB810:I=I+1:GOSUB805:POKENC,0:GOTO900
  23. 910 IFI=JANDJ<=E+1THENGOSUB810:R=4+D:GOSUB830:I=K:GOSUB805:GOTO925
  24. 915 IFI=JTHENI=1:K=1:GOSUB820:GOSUB805:GOTO925
  25. 920 IFI=K+18THENK=I:GOSUB820:GOSUB805
  26. 925 POKENC,0:GOTO900
  27. 930 IFA$=CHR$(13)THENRETURN
  28. 935 IFA$<>"[145]"ANDA$<>""THEN905
  29. 940 IFI<>KTHEN955
  30. 945 P=0:R=6+E+D:IFJ-K<ETHENR=6+J-K:P=E-(J-K)
  31. 950 GOSUB810:GOSUB830:PRINT"[145][145]";:I=E+K-P:GOSUB805:GOTO900
  32. 955 IFI=KTHENI=I-E:K=K-E:GOSUB820:GOSUB805:GOTO900
  33. 960 IFI>1THENGOSUB810:I=I-1:PRINT"[145][145]";:GOSUB805:GOTO900
  34. 965 PRINT"[147]":R=11:C=5:GOSUB830:PRINT"LOADING "N$(I):IFS(I)THENS=1
  35. 970 POKEB,19:POKEB+1,13:POKEB+2,82:POKEB+3,213:POKEB+4,154:POKEB+5,13
  36. 975 PRINT"[144]LOAD"CHR$(34)"0:"+T$(I)CHR$(34)",8,"S:POKENC,6:IFS=0THENEND
  37. 980 IFS(I)<0THENPOKENC,2:END
  38. 985 POKEB+2,13:POKEB+3,13:POKENC,4:PRINT"NEWSYS"S(I):END
  39. 1000 DATABBS WATERLAND(NL) 31/2990-40202
  40. 1005 DATACSX LOADER,CSX.BAS,EXTRACT PC-ARCS >64/128, 0
  41. 1010 DATAOMEGA-Q 64,OMEGA-Q.PRG,MULTI-FUNCT. 64 PROGRAM, 0
  42. 1015 DATAOMEGA-Q 128,OMEGA128.PRG,128>64 START OF OMEGA-Q, 0
  43. 9999 DATA *
  44. 55555 N$="0:MENU":OPEN15,8,15,"S"+N$:CLOSE15:SAVEN$,8:RUN
  45.